_GetLeading neg _RMoveY

[.025 {.125 Str_WidX_to_XPer} {.225 Str_WidX_to_XPer}.275] [0] Set_Up_Columns

end

top bottom sub left hdif 4 div add bottom vline stroke

hdif left top _GetLeading 1.5 mul sub hline stroke

left bottom right top rectpath hairwid 0 setgray stroke

/hdif right left sub def /top top boxsize tw2 add _GetLeading add sub def

bottom _GetLeading 2 div add _SetBM right _SetRM

left _SetLM

top boxsize tw2 add sub _SetTM

descFont 10 _ScaleFont setfont

_PageHeaderDict begin imagearea

/show_proc /def_show_proc load store